home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGO.ARC / CIRCLES.POG < prev    next >
Encoding:
Text File  |  1985-11-20  |  526 b   |  22 lines
  1.  
  2. SetColor(0, 0, 0, 0)
  3. SetColor(1, 128, 0, 1*64)
  4. SetColor(2, 128, 0, 2*64)
  5. SetColor(3, 128, 0, 3*64)
  6. SetColor(4, 128, 0, 4*64-1)
  7. SetColor(5, 128, 1*64, 255)
  8. SetColor(6, 128, 2*64, 255)
  9. SetColor(7, 128, 3*64, 255)
  10. SetColor(8, 128, 4*64-1, 255)
  11. SetColor(9, 0, 128, 1*64)
  12. SetColor(10, 0, 128, 2*64)
  13. SetColor(11, 0, 128, 3*64)
  14. SetColor(12, 0, 128, 4*64-1)
  15. SetColor(13, 128, 128, 1*64)
  16. SetColor(14, 128, 128, 2*64)
  17. SetColor(15, 128, 128, 3*64)
  18.  
  19. loop
  20.     Circle(Random(320), Random(200), Random(50), Random(15)+1)
  21.  
  22.